--Factorial
fact x = if x>0 then x*(fact (x-1)) else 1 

main = fact 5
